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Guida per l'input dei programmi versioni 


C16 plus/4 - VIC 20 

Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
I /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario'" questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL . 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 
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Per ricevere gli arretrati di iyfià compilare il seguente tagliando: 
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□ assegno allegato □ contanti allegati 

K 


2 
















CI6'-plus/4 


6 La Dama 

di V Lopez trad e adatt di F Sverna 


TI-99/4A 


- a Attacco spaziale 

io <» C Resena «ad e adatt di E Re Garbagnati 


^ Difesa allena 

11 di H J lodi trad e adait di M Antico» 


20 


Fllp Flop 

di C Regena trad. e adatt di E Re Garbagnati 



4 <y Difesa allena 

lo di H J. Lock trad e adatt di M. Anticoli 


sindaii - 

Spectrum 

A r Musica 4 (16/48K) 

O Carlo Panzalis 


^ a Orbita 

IO di L. Forsyttte trad e adatt. di M Antico» 


aa Scritte rotanti ( 16/1810 
X # di D TreoncocL trad e adatt di C. Panzalis 

A A Forza 4 < 16/-Ì8K) 

X 7 di Malteo Ferrari 


J.sotts.r.l. 

DIREZIONE, REDAZIONI 
E AMMINISTRAZIONE 

V ia Roslolll, 5 
20124 Milano 

Tal : 68.80.841-68.80.842-68.80.843- 
68 88 228-68.37.97 

DIRETTORE RESPONSABILE: 

Pietro Ooll'Oreo 

COORDINAMENTO TECNICO: 

Lucio Bragagnoto 
Mauro Crlstulb Grizzi 
REDAZIONE: 

Carlo Panzalis 
Franco Sarclna 

GRAFICA E IMPACI NAZIONE 

Margherita La Noce 
Ivana Rossi 
Ralfaella Toffolatti 


FOTOCOMPOSIZIONE: 

Graphotek 

Via Aslesani, 16 - Milano 
Tel 64.80 397 

CONTABILITÀ: 

Giulia Pedrazzini 
Flavia Bonaitl 


AUTORIZZAZIONE A 
PUBBLICITÀ: 

Tribunale di Milano 
n° 200 dot 14-04-1984 


STAMPAI 

Intorgralica - Pioltello (MI) 

Rivista associata 
all'Unione stampa 
Periodica Italiana 


PUBBLICITÀ 

Concessionario per malia o l'Estero 
J.Advortising s.r.l. 

V ie Restelli. 5 

20124 MILANO 
Tel. (02) 

68.82.895-68.80.606-68.87.233 
Tl« 316213 REINA I 
Concessionario esclusivo per la 
DIFFUSIONE in Italia o Esforo: 
SODIP - Via Zurettl, 25 

20125 MILANO 
Spedizione In abbonamento 

S alalo Gruppo 11/70 
BZZO della rivista L. 1 300 
Numero arretrati L 2.600 
© TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI 
SONO RISERVATI 


3 













Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani " che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma‘ ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem " seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell’angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI 6 e PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128TOl6260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS!6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 ,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141 ,34,63,1 69 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,133,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,1 01,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,210,255,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,2 55,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 6 9,0 
310 DATAI 33,6,172,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
3 30 DATAI 69,32,32,21 0,255,32,210,255,1 73 
340 DATA251,3,133,205,76,55,63 

STOP BUG PER VIC 90 


100 POKE55,0:POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR) 
ATTENDERE PREGO-" 

110 FORI=RTOR+132 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK<>22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR){ 2 GlU 1 )(RVS)STOP BUG{OFF} ATTIVA» 
O . " ; NEW 

200 DATAI 73,36,3,201 , 32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA2S1,134,252,132,253,8,201,13,240 
2 50 DATAI 7,201 , 32,24 0,5,24,1 01 >254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4 , 1 41 , 251 
280 DATA3,206,25!,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,169,0 
310 DATA!33,254,172,33,999,192,87,208,6 
320 DATA32,205,l89,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,1 33,21 4,76,55^.999 
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La dama 


Chi di voi non conosce il sioco del¬ 
ia dama? 

Quale nonna non ha insegnato al 
proprio nipotino questo famosissi¬ 
mo sioco? 

Se, dopo aver letto queste due ri¬ 
ghe, qualcuno di voi si sente in col¬ 
pa, non se lo faccia ripetere due 
volte e impari subito le regole di 
questo famoso gioco, che ora è di¬ 
sponibile anche per i fedeli lettori 
di Papersoft. 

Questo programma è semplicissimo 
da usare: prima di tutto dovrete scri¬ 
vere il vostro nome, quindi avrete la 
possibilità di scegliere il colore con 
cui giocare (rosso o nero). 


Per muovere le pedine dovrete 
usare i tasti di cursore portando il 
segnale lampeggiante dapprima 
sulla pedina che volete muovere, 
quindi sulla casella di arrivo pre¬ 
scelta. Per concludere ogni opera¬ 
zione bisogna premere il tasto [RE¬ 
TURN], 

Il segnale lampeggiante assumerà 
uno di questi simboli: ?,@ , # a 
seconda della operazione che il 
giocatore dovrà svolgere (sceglie¬ 
re la pedina, la casella d'arrivo, o 
mangiare un'altra pedina). 
Premendo la barra spaziatrice po¬ 
trete saltare un turno. 

Buon match! 


10 REM * * * LA DAMA*** 

: rem 

225 

20 VOL8:G0SUB1690 

: rem 

21 

30 PRINT"{CLR}" 

: rem 

1 99 

40 GOSUBl110 

: rem 

167 

50 GOTO290 

: rem 

57 

60 GETKEYA? 

: rem 

148 

70 RETURN 

: rem 

71 

80 REM 

: rem 

76 

90 U=X+A:V=Y+B:IFU<0ORU>7ORV<0ORV>7THENl40 

:rem 

21 8 

100 IFS(U,V)=OTHENGOSUB150:GOTOl40 

: rem 

85 

110 IFS(U,V)<0THEN140 

: rem 

204 

1 20 U=U+A:V=V+B:IFU<OORV<OORU>70RV>7THENl40 

: rem 

254 

130 IFS(U,V)=OTHENGOSUBl50 

: rem 

80 

140 RETURN 

: rem 

11 7 

150 IFV=0ANDS(X,Y)=-lTHENQ=Q+2 

: rem 

66 

160 IFABS(Y-V)=2THENQ=Q+5 

: rem 

6 

170 IFY=7THENQ=Q-2 

: rem 

97 

180 IFY=OORQ=7THENQ=Q+1 

: rem 

1 90 

190 FORC=-lTOlSTEP2:IFU+C<0ORU+C>7ORV+GX<0THEN230 



:rem 

99 

200 IFS(U+C/V+GX)<0THENQ=Q+1:GOTO230 

: rem 

178 
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210 

IFU-C<0ORU-C>7ORV=GX>7THEN230 

:rem 

58 

220 

IFS(U+C,V+GX)>0AND(S(U-C,V-GX)=OOR(U-C=XANDV-GX=Y))TH 


ENQ=Q-2 

: rem 

208 

230 

NEXT:IFQ>R(0)THENR(O)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4) 

=V 



: rem 

29 

240 

Q=0:RETURN 

:rem 

no 

250 

U=X+A:V=Y+B:IFU<0ORU>7ORV<0ORV>7THEN270 

: rem 

12 

260 

IFS(U,V)=OANDS(X+A/2,Y+B/2)>OTHENGOSUBl50 

: rem 

177 

270 

RETURN 

: rem 

121 

280 

REM 

: rem 

126 

290 

GOSUBl580 

: rem 

233 

300 

IFC1=12THEND$ = "HO VINTO IO !":GOTOl030 

: rem 

101 

31 0 

IFPl=12THEND$="HAI VINTO. BEN FATTO!":GOTOl030 




:rem 

151 

320 

D$=GG$:GOSUBl 070 :KW=0 

: rem 

1 83 

330 

Ni=1 :N2 = 2:LO=SZ+(22*CQ)+1:Ll=0:Ul=0 

:rem 

182 

340 

L2=Ll-1:U2=Ul-1 :WQ=63 

: rem 

1 51 

350 

W=0:GETW$:IFW$ <>""THENW=ASC(W$) 

: rem 

89 

360 

PK=PEEK(LO):POKELO,WQ:FORT= 1 TO50:NEXT:PQ= 

PEEK(LO+DF): 


POKELO+DF,113 

:rem 

22 

370 

POKELO,160:FORT=1TO50:NEXT:POKELO,PK:POKELO+DF,PQ 




:rem 

220 

380 

IFW=157ANDL1>0THENLl=Ll-l:LO=LO-3 

: rem 

234 

390 

IFW=19THENPRINT"{CLR}": END 

: rem 

205 

400 

IFW=130RW=141THEN480 

:rem 

177 

410 

IFW=32THEN820 

: rem 

230 

420 

IFW=20ANDW=OTHEN330 

:rem 

11 9 

430 

IFW=29THENIFL1<7THENL1=Ll+1:LO=LO+3 

:rem 

160 

440 

IFW=145THENIFU1<7THENU1=Ul+1:LO=LO-3*CQ 

: rem 

171 

450 

IFW=17THENIFU1>0THENUl=Ul-l:LO=LO+3*CQ 

:rem 

117 

460 

GOTO350 

:rem 

107 

470 

REM 

: rem 

127 

480 

POKE2 39,0 : Ri (Ni ) =Ll :Rl (N2)=Ul:IFL2=LlORU2 

=UlTHEN780 



: rem 

23 

490 

IFS(LI,U1)=0ANDWQ=63THEN1020 

:rem 

127 

500 

IFS(LI,U1)=40RS(LI,Ul)< 0THEN1020 

:rem 

58 

51 0 

IFWQO63THEN640 

: rem 

121 

520 

LM=Ll-1 :UP = Ul+1 : IFLl > = 1 ANDUl < = 6THENIFS ( LM 

,UP)=0THEN64 


0 

: rem 

66 

530 

LP = Ll+1 : IFLl < = 6ANDUl < = 6THENIFS(LP,UP)=0THEN64 0 




: rem 

76 

540 

IFS(LI,U1 ) =1THEN570 

: rem 

52 

550 

UM=Ul-1 : IFLl > = 1ANDUl > = 1THENIFS ( LM,UM)=0THEN640 




:rem 

83 

560 

IFLl<=6ANDUl>=1THENIFS(LP,UM)=0THEN640 

:rem 

93 

570 

IFLl> = 2ANDUl< = 5THENIFS(LM,UP)< 0ANDS(Li - 2 , 

U1+2)=0THEN6 


40 

: rem 

44 

580 

IFLl<=5ANDUl<=5THENIFS(LP,UP)<0ANDS(Li+2, 

U1+2)=0THEN6 


40 

:rem 

47 

590 

IFS(LI,U1)=1THEN1020 

: reni 

96 


7 


600 IFLl>=2ANDUl> = 2THENIFS(LM,UM)<OANDS(Li-2,Ul-2)=0THEN6 
40 :rem 36 

61 0 IFLl< = 5ANDUl>=2THENIFS(LP,UM)<OANDS(Li+2,U1-2)=0THEN6 
40 :rem 39 

620 GOTO1020 :rem 148 

630 REM :rem 125 

640 WQ=0:L2 = L1:U2=Ul :IFNl=lTHENNl=3 :N2 = 4:G0T03 50 : rem 175 

650 E=Rl(1):H=Rl(2):A=Rl(3):B=Rl(4):IFS(E,H)=40RS(A,B)<>0 
THEN1020 :rem 142 

660 IFABS(E-A)>20RABS(H-B)>2THEN1020 :rem 86 

670 S(A,B) =S(E,H) :S(E,H) =0 : IFABS ( E-A) 02THEN81 0 :rem 165 
680 S((E+A)/2,(H+B)/2)=0:Pl=Pl+l:N2 = 4: Ni=3 :KW=1:R1 (1)=Rl ( 
3) :Rl (2) =Rl (4) ’• rem 32 

690 IFB=7THENS(A,B)=2 :rem 213 

700 GOSUBl580:WU=35 :rem 108 

71 0 LM=Ll - 1 :UP=U1+1:IFLl> = 2ANDUl< * 5THENIFS(LM,UP)< OANDS(L 

l-2,Ul+2)=0THEN770 : rem 21 

72 0 LP = Ll+1 :IFLl< = 5ANDUl< = 5THENIFS(LP,UP)<OANDS(Ll+2,Ul+2 

)=0THEN770 :rem 27 

730 IFS(Li,Ul)=1THEN820 :rem 51 

740 UM=U1-1 :IFLl>=2ANDU1> = 2THENIFS(LM,UM)<OANDS(Li-2,Ul- 2 
)=0THEN770 : rem 42 

750 IFLl< = 5ANDU1>=2THENIFS(LP,UM)< OANDS(Ll+2,Ul-2)=0THEN7 



70 

: rem 

48 

760 

GOTO820 

: rem 

112 

770 

D$=MV$:GOSUBl070:GOTO350 

: rem 

151 

780 

Al =Rl (Ni):T9=Rl (N2) 

: rem 

249 

790 

IFS (Al ,T9) OOORABS(Al-A) <>20RABS(B1 

-B) 02THEN1 020 




: rem 

68 

800 

E=A:H=B:A=Al:B=T9:GOTO670 

: rem 

220 

81 0 

IFB=7THENS(A,B)=2 

: rem 

207 

820 

GOSUBl580 

: rem 

232 

830 

REM 

: rem 

127 

840 

D$=CT$:GOSUBl070 

: rem 

126 

850 

RM(0)=INT(.2 5+(7*RND( 1 ) ) ) :FORI = lT07 

:rem 

192 

860 

RM=INT(.25+(7*RND(1))):FORJ=OTOI-1: 

IFRM(J)=RMTHENJ=I- 


1:NEXT:GOTO860 :rem 118 

NEXT:RM(I)= RM:NEXT : rem 166 

FORXI=0TO7:X=RM(XI):FORY = OTO/: IFS(X,Y)>-!THEN9I0 

:rem 63 

IFS(X,Y)=-l THENFORA=-1TO1STEP2:B=GX:GOSUB90:NEXT 

:rem 116 

90 0 IFS(X,Y)=-2THENFORA=-lTOlSTEP2:FORB = -1 TOT STEP2:GOSUB9 


870 

880 

890 



0:NEXT:NEXT 

: rem 

206 

91 0 

NEXT:NEXT 

: rem 

82 

920 

IFR(0)=-99THENPl=12:G0T0310 

: rem 

48 

930 

R ( 0)=-99 

: rem 

75 

940 

IFR(4)=0THENS(R(3),R(4))=-2:GOTO960 

: rem 

202 

950 

S(R(3),R(4))=S(R(1),R(2)) 

: rem 

209 

960 

S(R(1),R(2))=0: IFABS (R ( 1 ) -R ( 3) ) O2THEN2 90 

: rem 

225 

970 

S((R(l)+R(3))/2,(R(2)+R(4))/2)=0:C1=C1+1 

: rem 

1 68 


980 

990 

1 000 
1010 
1020 
1 030 
1 040 
1 0 50 
1 060 

1070 
1 080 

1 090 
1 1 00 
1110 
1 1 20 
1 1 30 


1 1 40 
1 1 50 

1 1 60 

1 1 70 
1 1 80 

1 1 90 

1 200 
1 210 

1 220 

1 230 
1 240 
1 250 

1 260 

1 270 

1 280 

1 290 

1 300 


X=R(3):Y=R(4):IFS(X,Y)=-1THENB=-2:F0RA=-2T02STEP4:GOS 
UB250 :rem 57 

IFS(X,Y)=-2THENFORA=-2T02STEP4:FORB=-2T02STEP4:GOSUB2 
50 :NEXT 

NEXT : IFR ( 0 ) 0-99THENR ( 0 ) =-99:GOTO94 0 
GOTO2 90 

D$=AGS:GOSUBl070:FOROO=1T02000:NEXT:GOTO300 
GOSUBl 070 :FOROO=1T05000:NEXT 
D$="VUOI GIOCARE DI NUOVO?"GOSUBl070 
GOSUB60:1FA$ = "S"THENRUN 30 

PRINT" {CLR} { 5 GIU'H 8 SPAZljGRAZIE PER LA 
:POKE65298,1 96:POKE652 99,208:END 
D$ = " { 9 SPAZI}"+D$+"{ 6 SPAZI}" 

PRINT"{HOME}";: FORI = 1TO24:PRINT"{GIU'} 


: rem 

148 

:rem 

1 63 

: rem 

1 50 

: rem 

1 67 

: rem 

26 

: rem 

11 

: rem 

53 


PARTITA" 
93 
179 


rem 

rem 


: NEXT 
: rem 


PRINTRIS;D$; : RETURN 
REM 

PRINT"{CLR}{ 8 GIU'}{BLK}":RI$="{ 13 DES}" 
COLOR4 ,9,3 :COLORO ,8,5:PRINTRI$ ;"[< 14 @>]" 
PRINT"{F3 } " ; RI? ; " '{RVS}L{OFF} {RVS}A{OFF}{ 
{RVS}D{OFF} {RVS}A{OFF} {RVS}M{OFF} 


153 

14 

166 

50 

230 


: rem 
: rem 
:rem 
: rem 

2 SPAZI} 
{RVS}A{OFF} 

:rem 91 

PRINTRI$;"[< 14 T> J { 2 GIU'}" : rem 157 

INPUT"{GIU'}{ 3 DES}COME TI CHIAMIME$:IFLEN(ME$)>7 
THENl150 :rem 122 

PRINT"{ 5 GIU'}{ 3 DES}VUOI ISTRUZIONI (S/N)?" :GOSUB 
60 :rem 40 

IFA$<>"S"THENl320 :rem 195 

PRINT"{CLR}{GIU'}{ 2 SPAZIjMUOVI IL '{RVS}?{OFF}' CH 
E VEDI LAMPEGGIARE" : rem 171 

PRINT"{ 2 SPAZI}SULLA PEDINA CHE VUOI SPOSTARE,USAND 

: rem 72 

SPAZI}I TASTI [CRSR].{GIU'}" : rem 147 

SPAZI}PREMI [RETURN] E QUINDI MUOVI" 

:rem 73 

SPAZI}LA {RVS}@{OFF} LAMPEGGIANTE SULLA CA 

: rem 235 

SPAZI}CHE HAI SCELTO." : rem 49 

SPAZI}PREMI [RETURN].{GIU'}" :rem 236 

SPAZI}SE HAI UN'ALTRA MOSSA DA FARE" 

:rem 103 

SPAZI}IL SEGNALE CONTINUERÀ'A LAMPEGGIARE. 

:rem 235 

SPAZI}SE INVECE VUOI SALTARE IL TURNO" 

:rem 105 

SPAZI}DEVI PREMERE LA BARRA SPAZIATRICE. 

: rem 71 

SPAZI}IL GIOCO FINISCE QUANDO UN GIOCATORE 

:rem 172 

SPAZI}RIESCE A MANGIARE TUTTE LE PEDINE":P 
SPAZI}DELL'AVVERSARIO." : rem 52 

9 


O" 

PRINT"{ 
PRINT"{ 

PRINT"{ 
SELLA" 
PRINT"{ 
PRINT"{ 
PRINT"{ 

PRINT"{ 
{GIU'}" 
PRINT"{ 

PRINT"{ 
{GIU'}" 
PRINT"{ 

II 

PRINT"{ 
RINT"{ : 


1 31 0 

REM 

: rem 

1 69 

1 320 

SD=3075:CF=80:SZ=SD:CQ=CF/2:DF=-1024 

: rem 

118 

1 330 

Bl=64:B2 = 64:B3 = 65:B4 = 65 :CR=66:CB=0 

:rem 

137 

1 340 

PRINT"{ 3 GIU'H 3 DES}{RVS}";ME$;", DESIDERI I 

ROSS 


I O I NERI?" 

: rem 

248 

1 350 

GOSUB60:IFA$<>"R"ANDASO"N"THENl 350 

: rem 

41 

1 360 

IFA$ = "N"THENCR=0:CB = 66 

:rem 

38 

1 370 

A=SZ:B=A+(3*CQ)+3:DIMS(8,8) ,Rl (4) ,R(4) 

: rem 

70 

1 380 

DATAI,4,1,4,0,4,-1,4,4,1,4,0,4,-1,4,-1,35 

:rem 

187 

1 390 

FORI = 0TO7:FORJ = 0TO7:READX:IFX=35THENl 410 

: rem 

95 

1 400 

S(I,J)=X:GOTOl420 

:rem 

247 

1410 

RESTORE:READS(I, J) 

: rem 

163 

1 420 

NEXT:NEXT 

: rem 

127 

1 430 

GG$ = "TOCCA A TE":AG$="{RVS}PROVA DI NUOVO{OFF}": 

CT$ = 


"MUOVO IO":MV$ = "UN 1 ALTRA MOSSA" 

: rem 

221 

1440 

CO$="CBM":TT$="{ 27 DES}" 

: rem 

104 

14 50 

COLOR4,1 :COLORO,10,3 

:rem 

1 75 

1 460 

GX=-1 :R(0)=-99 

: rem 

238 

1 470 

REM 

: rem 

176 

1 480 

PRINT"{CLR}";:RI$="{ 3 DES}":SE$=CHR$(28)+ 

« 



{ 3 SPAZI}":LE$=CHR$(144)+"{ 3 SPAZI}" 

: rem 

33 

1 490 

FORI=1T04:FORJ=1T03:PRINTRI$; 

: rem 

179 

1 500 

FORL=1T04:PRINT"{RVS}";SE$;LE$; :NEXT:PRINT 

"{OFF} 

" : NE 


XT 

:rem 

12 

1 51 0 

FORK=1T03:PRINTRI$ ; 

: rem 

254 

1 520 

FORL=1T04:PRINT"{RVS}";LE$;SE$; :NEXT:PRINT 

"{BLK} 

II 



: rem 

147 

1 530 

NEXT:NEXT 

:rem 

1 29 

1 540 

PRINT"{HOME}{ 2 GIU'}";TT$;ME$;"{ 2 SPAZI} 

";CO$: 

I = SZ 


+3*CQ+27:J=SZ+3*CQ+32 

: rem 

111 

1 550 

POKEI,B2:POKEI+DF,CR:POKEJ,Bl:POKEJ+DF,CB 

:rem 

118 

1 560 

RETURN 

: rem 

172 

1 570 

REM 

: rem 

177 

1 580 

Wl=SZ+CQ+l:FORJ=7TOOSTEP-1:FORI=0TO7 

: rem 

88 

1 590 

IFS(I,J)=OTHENPOKEW1,160 :POKEWl+DF,0 : GOTO!64 0 




: rem 

23 

1 600 

IFS(I,J)=1 THENPOKEWl,Bl :POKEWl+DF,CR: GOTO!64 0 




: rem 

81 

1610 

IFS(I,J)=-lTHENPOKEWl,B2:POKEWl+DF,CB: GOTO!64 0 




:rem 

112 

1 620 

IFS(I,J)=2THENPOKEWl,B3:POKEWl+DF,CR: GOTO!640 




: rem 

86 

1 630 

IFS(I,J)=-2THENPOKEW1,B4:POKEWl+DF,CB: GOTO!640 




: rem 

117 

1 640 

W1=Wl+3 :NEXT:Wl=Wl+96:NEXT:GOSUBl760 

: rem 

17 

1 650 

REM 

: rem 

176 

1660 

PRINT" {HOME ) l 5 GIU'H 2 SPAZI}"; TT$ ; P1 ; " { 

2 SPAZI} 

1670 

" ;C1 

: rem 

247 

RETURN 

: rem 

174 

1680 

REM 

: rem 

179 

1 690 

GOSUB1 770 :AA=1 4 848:AB = 1 4856 

: rem 

35 


10 


1 700 POKEAA,60:POKEAA+l,66 :POKEAA+2,153:POKEAA+3,165:POKE 
AA+4,165:POKEAA+5,153 : rem 42 

1710 POKEAA+6,66 :POKEAA+7,60 : rem 82 

1 72 0 POKEAB,60:POKEAB+l,238 :POKEAB+2,189:POKEAB+3,189:POK 



EAB+4,189 :POKEAB+5,189 

: rem 

129 

1 730 

POKEAB+6,238 :POKEAB+7,60 

: rem 

135 

1 740 

RETURN 

: rem 

172 

1 750 

REM 

: rem 

1 77 

1 760 

SOUND! , 900,30 : RETURN 

: rem 

246 

1 770 

REM INIZIO CARATTERI^4336 

($3800) : rem 

1 62 

1 780 

COLORO,1 SPRINT"{CLR}{BLK}{ 

3 GIU 1 }MO":PRINT" 



{ 5 GIU 1 }TD000 D6FF 3800":PRINT"{GIU'}X":PRINT” 



{GIU 1 }GO1810{HOME}" 

• : rem 

53 

1 790 

POKE51,0:POKE55,0:POKE52,56 

:POKE56,56 :rem 

195 

1 800 

POKE2 39,4 :FORI = l319T01 322 :POKEI,13 :NEXT: END : rem 

162 

1 81 0 

POKE65298,PEEK(65298)AND251 

:POKE652 99,56 :RETURN 




:rem 

75 


Difesa aliena 


VIC20 


Mentre attraversdvate la galassia 
per un viaggio di controllo, gli alie¬ 
ni con metodi futuristici sono riu¬ 
sciti a immobilizzare la vostra 
astronave e a disattivare computer 
e autodifese personali. 

Siete l'unico superstite dell'astro¬ 
nave e dovete cercare di restare in 
vita il più possibile. 


Mediante i tasti: 

A = per andare verso sinistra 
W = per andare verso l'alto 
D = per andare verso destra e 
Z = per andare verso il basso,- 
è possibile spostarsi nell'astrona¬ 
ve. 

Più tempo sopravviverete, più 
punti riuscirete ad ottenere. 


10 

REM *** DIFESA ALIENA *** 

: rem 

1 51 

1 5 

REM *** PAPERSOFT *** 

: rem 

250 

20 

COLOR4,5,5:COLORO,7,4 

: rem 

1 31 

30 

INPUT "{CLR}DIFFICOLTA 1 { 2 SPAZlJl - 5 ";Z:Z= 

Z*1 0 

: rem 

164 

40 

IF Z>50ORZ<10THEN 30 

: rem 

26 

50 

60 

C = 2048:S = 3072:SC = 0:DIMX(Z) ,Y(Z):X = 6:Y=10 :N=1 
PRINT"{CLR}{WHT}{GIU 1 }{ 3 SPAZI}.{ 3 SPAZI}. 

: rem 

249 

70 

{ 2 SPAZI}{RVS}£ [<D>J{OFF}. .{ 3 SPAZI}." 
PRINT".{ 8 SPAZI}{RVS}£{ 2 SPAZI}{OFF}[<G>} . 

: rem 

191 

80 

{ 2 SPAZI}." 

PRINT"{ 6 SPAZI}. {RVS}£{ 3 SPAZI}{OFF}[<G>] 

: rem 

1 80 


{ 2 SPAZI}.{ 3 SPAZI}." 

: rem 

1 81 




h 






90 PRINT".{ 4 SPAZI}{RVS}£{ 4 SPAZI}{GRN}{OFF}[<+>]{WHT} 

{RVS}{ 2 SPAZI}{B} [<*>]” : rem 113 

100 PRINT"{ 4 SPAZI}{RVS}£{OFF}£{ 2 SPAZl}{B}{ 6 SPAZI} 

[<*>]{RVS}(<*>]" : rem 42 

110 PRINT"{ 3 SPAZI}{RVS}£{OFF}£{ 11 SPAZI}[<*>]{RVS} 

{<*>]" : rem 41 

120 PRINT"{ 2 SPAZI}{RVS}£{OFF}£{ 13 SPAZI}[<*>]{RVS} 

[<*>]" : rem 42 

130 PRINT" {B}£{OFF}£{ 15 SPAZI}[<*>){RVS}[<*>]":rem 27 
140 PRINT"{YELTZ{CYNT{RVS} {OFF}{ 4 SPAZI}{B} {B}N 

[< 3 T>) M{ 6 SPAZI}{CYN}{RVS} " : rem 90 

150 PRINT"{WHT}@{GRN} [< + >l { 3 SPAZI}{WHT}{RVS} {OFF} 

{ 2 SPAZI}{GRN}[<+>]{ 2 B}*I[<M>){ 2 SPAZl}{PUR}Z 
{RVS}{ 2 SPAZI}{OFF} {CYNJTrVS} {RED}£" :rem 27 

160 PRINT"{WHT}P{GRN}[<+>]{ 3 SPAZI}{WHT}TRVS} {OFF} 

{DES}{ 2 B} {<L>} { 2 SPAZI}{PUR}Z{RVS} {OFF}{GRN} 

[< + >] { 2 CYN}{RVS} {OFF}{RED}[<*>}" : rem 199 

170 PRINT"{YEL}Z{CYN}{RVS} {OFF}{ 6 SPAZI}{WHT}M{< 3 @>] 
N{ 6 SPAZI}ICYN}{RVS} " : rem 97 

180 PRINT"{WHT} [<*>]{OFF}{RVS}[<*>]{OFF}{ 15 SPAZl}{RVS} 
£{OFF}£" : rem 89 

190 PRINT"TWHT}{ 2 SPAZI}[<*>}{OFF}{RVS}[<*>}{OFF} 

{ 13 SPAZI}{RVS}£{OFF}£" :rem 90 

200 PRINT"{WHT}{ 3 SPAZI}[<*>]{OFF}{RVS}[<*>J{OFF} 

{ 11 SPAZI}{RVS}£{OFF}£" : rem 82 

210 PRINT"{WHT}{ 4 SPAZI}[<*>J{OFF}{RVS}[<*>]{OFF} 

{ 9 SPAZI}{RVS}£{OFF}£" : rem 83 

220 PRINT"{ 5 SPAZlT[<*>]TRVS}{ 4 SPAZI}{GRN}[<+>]{WHT} 

{ 4 SPAZI}{OFF}£" : rem 90 

230 PRINT"{ 6 SPAZlT. [<*>] {RVS}{ 3 SPAZI}{OFF}[<G>] . 

{ 3 SPAZI}." : rem 24 

240 PRINT".{ 8 SPAZI}[<*>]{RVS}{ 2 SPAZI}{OFF}{<G>] 

{ 2 SPAZI}." : rem 235 

250 PRINT"{ 5 SPAZI}.{ 2 SPAZI}. [<*>]{RVS} [<C>}{OFF}. . 

" : rem 95 

260 A=14 :B = 10 : FORI=0TON :rem 93 

270 X(I)=A:Y(I)=B:POKEC+B*40+A,2:POKES+B*40+A,81: rem 222 
280 Al=A+INT(RND(1)*3—1):B1=B+INT(RND(1)*3-1) : rem 198 

290 IFPEEK (S+Bl *40+Al ) O32THEN280 : rem 100 

300 B=B1:A=A1:NEXT :rem 40 

310 FORI=0TON:PRINT"{HOME}{BLK}PUNTISC;: IFSC<10THENPRI 
NT"{SIN} " : rem 63 

320 CI=1 :A=X(I) : B=Y(I) : rem 205 

330 IFRND(1)>.7THEN350 : rem 245 

340 Al=A+(A>X)-(A<X):Bl=B+(B>Y)-(B<Y):GOTO360 :rem 15 
3 50 Bl=B+INT(RND(1)*3-1): Al=A+INT(RND(1)*3-1) : rem 196 

360 IFPEEK (S+Bl *40+Al ) =320RPEEK (S+Bl M0+A1 ) =81 ORPEEK (S+Bl 


M0+A1 ) =88THEN400 
370 C1=C1+1:IFC1<10THEN350 
380 IFI<NTHENA=X{1+1):B=Y(I+1) 
390 GOTO410 


:rem 216 
: rem 188 
: rem 0 
:rem 106 


12 


400 

POKES+B*40+A,32 

: rem 

1 4 

41 0 

A=Al:B=Bl:IFA=XANDB=YTHEN580 

: rem 

1 99 

420 

X(I)=A:Y(I)=B:POKEC+B* 4 0+A,2:POKES+B*40+A,81 :rem 

21 9 

430 

GETA$: IFA$<>"A"ANDAS<>"D"ANDA$<>"W"ANDA$< >" 

X"THEN530 



: rem 

1 65 

440 

XI=X+(A$="A")-(A$="D"):Yl=Y+(A$="W")-(A$="X 

") 




: rem 

208 

450 

P=PEEK(S+Yl*40+Xl) 

: rem 

230 

460 

IFP=81THEN580 

: rem 

235 

470 

IFP< > 32ANDPO1 02ANDP< >2 30THEN530 

: rem 

1 30 

480 

SC=SC+1 

: rem 

97 

490 

POKEC+Yl*40+Xl,7 :POKES + Yl*40+Xl,88 :POKES + Y*40+X,32 

! :Y= 


Yl:X=X1 

: rem 

76 

500 

IFPOl 02ANDP<>230THEN530 

: rem 

1 22 

51 0 

FORJ=OTON:POKES+Y(J)*40+X(J) ,32 :NEXT:SC=SC- 

30 :IFSC<0T 


HENSC=0 

: rem 

230 

520 

N= 1 :GOTO2 60 

: rem 

94 

530 

IFN<ZANDRND(1)>.8THENN=N+1 :X(N)=X(N-l) :Y(N) 

=Y(N-1) 




: rem 

21 2 

540 

IFN=ZTHENFORJ=lTOZ:POKES+Y(J)*40+X(J),32:NEXT:N=1 




: rem 

95 

550 

NEXTI:GOT0310 

: rem 

41 

560 

POKES+Y(0)*40+X(0) ,32 :IFCl=10THEN430 

:rem 

230 

570 

GOTO310 

: rem 

105 

580 

REM 

: rem 

129 

590 

FORI = 1 TOSO0:NEXT 

: rem 

237 

600 

FORI = 1 TOl 000 :NEXT:PRINT"{CLR}{BLK}GLI ALIENI TI HANNO 


UCCISO ! !":PRINT:PRINT"{BLK}{ 4 DES}PUNTI" 

se 




:rem 

226 

61 0 

PRINT:PRINT"{BLK}GIOCHI ANCORA?" 

: rem 

101 

620 

GETA$:IFA$ <>"S"ANDA$ <>"N"THEN620 

: rem 

39 

630 

IFA$ = "N"THENPRINT:PRINT"{BLK}CIAO CIAO":END 

: rem 

252 

640 

PRINT:PRINT:PRINT"{BLK}PREPARATI." 

: rem 

23 

650 

FORI = lTOl 500 :NEXT 

: rem 

27 

660 

RUN 

? rpm 

145 


Difesa aliena 



Mentre attraversavate la galassia 
per un viaggio di controllo, gli alie¬ 
ni con metodi futuristici sono riu¬ 
sciti a immobilizzare la vostra 


astronave e a disattivare computer 
e autodifese personali. 

Siete l’unico superstite dell'astro¬ 
nave e dovete cercare di restare in 


13 






vita il più possibile. 

Mediante i tasti: 

A = per andare verso sinistra 
V/ = per andare verso l'alto 
D = per andare verso destra e 


Z = per andare verso il basso,- 
è possibile spostarsi nell'astrona¬ 
ve. 

Più tempo sopravviverete, più 
punti riuscirete ad ottenere. 


10 REM *** DIFESA ALIENA *** 
15 REM *** PAPERSOFT *** 

20 POKE36879,105 


: rem 151 
:rem 250 
:rem 100 


30 INPUT"{CLR}{WHT}DIFFICOLTA' 1-5 ";Z:Z=Z*10 :rem 169 
40 IF Z>50ORZ<1OTHEN 30 :rem 26 

50 C=38400 :S = 7680:SC=0:DIMX(Z) ,Y(Z):X=6:Y=10 :N=1:rem 51 
60 PRINT"{CLR}{WHT}{GIU'}{ 3 SPAZI}.{ 3 SPAZI}. 

{ 2 SPAZI}{RVS}£ [<D>]{OFF}. .{ 3 SPAZI}." : rem 191 
70 PRINT".{ 8 SPAZI}{RVS}£{ 2 SPAZI}{OFF}[<G>] . 

{ 2 SPAZI}." : rem 180 

80 PRINT"{ 6 SPAZI}. {RVS}£{ 3 SPAZI}{OFF}(<G>} 

{ 2 SPAZI}.{ 3 SPAZI}." : rem 181 

90 PRINT".{ 4 SPAZI}{RVS}£{ 4 SPAZI}{GRN}{OFF}[<+>]{WHT} 
{RVS}{ 2 SPAZI}{B} [<*>]" : rem 113 

100 PRINT"{ 4 SPAZI}{ RVS } £{ OFF } £{ 2 SPAZI}{B}{ 6 SPAZI} 

[<*>] {RVS}[<*>}" : rem 42 

110 PRINT"{ 3 SPAZI}{RVS}£{OFF}£{ 11 SPAZI}[<*>]{RVS} 

[<*>]" : rem 41 

120 PRINT"{ 2 SPAZI}{RVS}£{OFF}£{ 13 SPAZI}{<*>]{RVS} 

[<*>]" : rem 42 

130 PRINT" {B}£{OFF}£{ 15 SPAZI}[<*>]{RVS}[<*>]":rem 27 
140 PRINT"{YELTZ{CYNT{RVS} {OFF}{ 4 SPAZI}{B} {B}N 

[< 3 T>]M{ 6 SPAZI}{CYN}{RVS} " :rem 90 

150 PRINT"{WHT}@{GRN}[<+>]{ 3 SPAZI}{WHT}{RVS} {OFF} 

{ 2 SPAZI}{GRN}[<+>}{ 2 B}*I[<M>]{ 2 SPAZl}{PUR}Z 
{RVS}{ 2 SPAZI}{OFF} {CYN}TRVS} {RED}£" : rem 27 

160 PRINT"{WHT}P{GRN}[<+>]{ 3 SPAZI}{WHT}TRVS} {OFF} 
{DES}{ 2 B}fK[<L>]{ 2 SPAZI}{PUR}Z{RVS} {OFF}{GRN} 
[<+>] { 2 CYN}{RVS} {OFF}{RED}[<*>]" : rem 199 

170 PRINT"{YEL}Z{CYN}{RVS} {OFF}{ 6 SPAZI}{WHT}M[< 3 @>J 
N{ 6 SPAZI}TCYN}{RVS} " :rem 97 

180 PRINT"{WHT} [<*>}{OFF}{RVS}[<*>]{OFF}{ 15 SPAZI}{RVS} 
£{OFF}£" : rem 89 

190 PRINT"IWHT}{ 2 SPAZI} [<*>] {OFF}{RVS}[<*>] {OFF} 

{ 13 SPAZI}{RVS}£{OFF}£" : rem 90 

200 PRINT"{WHT}{ 3 SPAZI}[<*>]{OFF}{RVS}{<*>]{OFF} 

{ 11 SPAZI}{RVS}£{OFF}£" : rem 82 

210 PRINT"{WHT}{ 4 SPAZI}[<*>]{OFF}{RVS}[<*>}{OFF} 

{ 9 SPAZI}{RVS}£{OFF}£" : rem 83 

220 PRINT"{ 5 SPAZlI[<*>JlRVS}{ 4 SPAZI}{GRN}[<+>]{WHT} 

{ 4 SPAZI}{OFF}£" : rem 90 

230 PRINT"{ 6 SPAZlT. [<*>] {RVS}{ 3 SPAZI}{OFF}[<G>] 


{ 3 SPAZI}. 


: rem 24 


14 





240 


250 


PRINT".{ 8 SPAZI}[<*>]{RVS}{ 2 SPAZI}{OFF}[<G>] 

{ 2 SPAZI}." : rem 235 

PRINT"{ 5 SPAZI}.} 2 SPAZI}. [<*>]{RVS} [<C>]{OFF}. . 



fi 

: rem 

95 

260 

A=14 :B=10:FORI = OTON 

: rem 

93 

270 

X(I)=A:Y(I)=B:POKEC+B* 22+A,2 :POKES+B*22+A,81 : rem 

222 

280 

Al =A+INT(RND(1)*3-1) :Bl =B+INT(RND ( 1) *3-1) 

: rem 

198 

290 

IFPEEK (S+B1 *22+Al ) O32THEN280 

: rem 

100 

300 

B = Bl :A = Al :NEXT 

: rem 

40 

31 0 

FORI=OTON:PRINT"{HOME}{BLK}PUNTISC;:IFSC<1OTHENPRI 


NT"{SIN} " 

: rem 

63 

320 

Cl=l :A=X(I):B = Y ( I) 

: rem 

205 

330 

IFRND(1)>.7THEN350 

: rem 

245 

340 

Al=A+(A>X)-(A<X):Bl=B+(B>Y)-(B<Y):GOTO360 

:rem 

15 

350 

Bl=B+INT(RND(l)*3-1) : Al=A+1NT(RND{1)*3-1) 

: rem 

1 96 

360 

IFPEEK(S+Bl*22+Al)=320RPEEK(S+Bl*22+Al )=81 ORPEEK(S+Bl 


*22+Al)=88THEN400 

: rem 

21 6 

370 

C1=C1+1 :IFCl<10THEN3 50 

: rem 

188 

380 

IFI<NTHENA=X(1+1):B=Y(I+1) 

: rem 

0 

390 

GOTO410 

: rem 

1 06 

400 

POKES+B*22+A,32 

: rem 

1 4 

41 0 

A= Al :B=Bl :IFA=XANDB = YTHEN580 

: rem 

199 

420 

X(I) =A:Y(I)=B:POKEC+B*22+A,2 :POKES+B*22+A,81 : rem 

21 9 

430 

GETA$: IFA$ < >"A"ANDA$ < >"D"ANDA$ < >"W"ANDA$ < >" 

X"THEN530 



: rem 

1 65 

440 

X1=X+(A$ = "A")-(A$ = "D"):Yl=Y+(A$ = "W")-(A$ = "X 

") 




: rem 

208 

450 

P=PEEK{S+Yl*22+Xl) 

: rem 

230 

460 

IFP=81THEN580 

:rem 

235 

470 

IFP032ANDP01 02ANDP0 2 30THEN530 

: rem 

130 

480 

SC=SC+1 

: rem 

97 

490 

POKEC+Yl*22+Xl,7:POKES+Yl*22+Xl,88 :POKES+Y*22+X,32 :Y= 


Y1:X=X1 

: rem 

76 

500 

IFPOl 02ANDP0230THEN530 

: rem 

1 22 

51 0 

FORJ = OTON:POKES+Y(J)*22+X(J) ,32 :NEXT:SC=SC- 

30 :IFSC<0T 


HENSC=0 

: rem 

230 

520 

N=1:GOTO260 

: rem 

94 

530 

IFN<ZANDRND(1)>.8THENN=N+1:X(N)=X(N-1):Y(N) 

=Y(N-1) 




: rem 

21 2 

540 

IFN=ZTHENFORJ=1TOZ:POKES+Y{J)*22+X(J) ,32 :NEXT:N=1 




: rem 

95 

550 

NEXTI:GOT0310 

: rem 

41 

560 

POKES+Y(0)*22+X(0) ,32 :IFCl=10THEN430 

: rem 

230 

570 

GOT0310 

: rem 

105 

580 

REM 

: rem 

129 

590 

FORI=lTO500:NEXT 

: rem 

237 

600 

FORI = 1TOl 000 :NEXT:PRINT"{CLR}{BLKjSEI MORTO 

! ! !":PRIN 


T:PRINT"{BLK}{ 4 DES}PUNTI"SC 

: rem 

16 

61 0 

PRINT:PRINT"{BLK}GIOCHI ANCORA?" 

: rem 

101 

620 

GETA$:IFA$< >"S"ANDA$<>"N"THEN62 0 

: rem 

39 

630 

IFA$="N"THENPRINT:PRINT"{BLK}CIAO CIAO":END 

: rem 

252 


15 


640 

PRINT:PRINT:PRINT"{BLK}PREPARATI... 

II 

: rem 

23 

650 

FOR1=1TO1500:NEXT 


: rem 

27 

660 

RUN 


:rem 

145 



Orbita VIC 20 


In questo simpatico gioco che usa 
la tecnica di ridefinizione dei carat¬ 
teri, impersoni il comandante di 
un'astronave che deve attraversa¬ 
re la Fascia degli Asteroidi tra le 
orbite di Marte e Giove. Devi riu¬ 
scire muovendoti con i tasti A (sini¬ 


stra) e D (destra), oppure disinte¬ 
grandoli con il cannone fotonico 
comandato dal tasto RETURN. Più 
tempo riuscirai a sopravvivere, più 
alto sarà il tuo punteggio. Buona 
fortuna! 


1 REM ** ORBITA ** : rem 126 

2 REM ** PAPERSOFT ** :rem 114 

3 PRINT"{CLR}ATTENDERE PREGO ..." : rem 58 

10 FORX=7168T076 79 :POKEX,PEEK(25600+X):NEXT:POKE56,28 : POR 

E52,28 

15 X=7168:Q=7679:W=7680:E = 7681 :V=36874:POKEV+4,15 :B = 2 

20 FORI=0TO7 
25 READA:IFA>255THEN60 
28 POKEX+I,A:NEXT:X=X+8 
30 GOTO20 

40 DATA3,7,15,85,85,15,7/3 
42 DATA255,255,255,85,85,255,255,255 

4 4 DATAI 92,224,240,85,85,240,224,1 92 
46 DATA24,126,255,255,24,24,24,24 
48 DATA24,24,24,24,24,24,24,24 
50 DATAI 53,90,1 26,60,60,126,90,153,300 

60 POKE36869,240:POKE36879,8:PRINT"{CLR}{WHT}{ 8 SPAZI} 

{RVS}ORBITA{OFF}" : rem 77 

61 PRINT"{ 2 GIU'}PER MUOVERE USA:" :rem 135 

62 PRINT" { 4 GIU 1 } A .SINISTRA" : rem 83 

63 PRINT" {GIU'}D .DESTRA" :rem 214 

65 PRINT"{GIU'}(RETURN) ..PER SPARARE":GOSUB90:GOTOl00 


: rem 

5 : B = 2 

95 

: rem 

31 

: rem 

21 7 

: rem 

61 

: rem 

21 3 

: rem 

254 

:rem 

44 

:rem 

54 

: rem 

36 

: rem 

135 

: rem 

234 

:rem 

116 


90 PRINT"{ 3 GIU'}PREMI UN TASTO" 

91 GETA$:IFA$ = ""THEN91 

92 RETURN 
99 G0T099 


: rem 246 
:rem 24 
:rem 247 
:rem 75 
:rem 29 
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1 00 

POKE3 686 9,255 :POKE3 687 9,8 

: rem 

11 8 

no 

PRINT"{CLR}{YEL}{ 20 GIU'}" 

: rem 

232 

1 1 5 

P=PEEK(197):B=B+.0001 

: rem 

80 

1 1 8 

IFP=17THENY=Y-1 

: rem 

1 54 

1 20 

IFP=18THENY=Y+1 

: rem 

1 46 

1 24 

IFY<1THENY=1 

: rem 

226 

1 26 

IFY>20THENY=20 

: rem 

72 

1 30 

POKEQ+Y,0 :POKEW+Y,1 :POKEE+Y,2 :POKEQ+Y+3 0 72 0 

,5:POKEW+Y 


+ 30720,5 :POKEE+Y+30720,5 

: rem 

113 

1 31 

IFP=15THEN400 

: rem 

21 8 

1 35 

IFPEEK(W+Y+22)< 50RPEEK(Q+Y+22)< 50RPEEK(E+Y+22)< 5THEN6 


00 

: rem 

1 0 

1 50 

X=INT(RND(1)*20)+1:PRINTTAB(X)"C" 

: rem 

131 

200 

GOTOl15 

: rem 

98 

400 

POKEQ+Y,0:POKEW+Y,!:POKEE+Y,2 

: rem 

37 

402 

FORX=W+Y+4 4TOW+Y+51 2STEP22 

: rem 

97 

410 

IFPEEK(X)=3THENPOKEV,128:POKEV+3,128:POKEV, 

0: POKEV+3, 


0 :SC=SC+5: GOTO500 

: rem 

96 

420 

POKEX,4 :POKEX+30720,2 :POKEX-22,32 

: rem 

1 66 

430 

NEXT:POKEX,32:PRINT:GOTOl15 

: rem 

249 

500 

POKEX,5:POKEX-22,32:FORT=0TO8:POKEX+30720,2 

: POKEX+30 7 


20,T 

: rem 

203 

50 5 

POKEQ+Y,0 : POKEW+Y,1 : POKEE+Y,2 

: rem 

43 

51 0 

POKEV+3,128+R:POKEV+3,0:NEXT:POKEX,32 : PRINT 

: GOTOl15 



: rem 

21 0 

600 

C= 30720 : POKEQ+Y,5 : POKEW+Y,5 : POKEE+Y,5 : FORX= 

1TOl0 : 

POKE 


Q+Y, X: POKEE+Y+C,X : POKEW+Y+C,X 

: rem 

240 

61 0 

POKEV,128:POKEV,0 : NEXT : POKE36869,240 

: rem 

178 

61 5 

PRINT"{CLR}{WHT} { 10 GIU'JPUNTI: "SC 

: rem 

1 5 

61 6 

IFSC>RCTHENRC=SC 

: rem 

44 


617 PRINT"{GIU 1 }{WHT}RECORD:"RC:FORX=1TOl500:NEXT 

:rem 220 

620 PRINT"{CLR}{WHT}{DES}{ 10 GIU'H 4 DES}GIOCHI ANCORA? 

":PRINT:PRINT"{ 7 DES}(S) 0 (N)" : rem 17 

630 GETA$:IFA$ = "S"THENSC=0:PRINT"{CLR}{YEL}{ 22 GIU'}":PO 
KE36869,255:GOTOl15 :rem 15 

632 IFA$="N"THENPOKE36879,27 :PRINT"{CLR}{BLU}{ 2 SU}":END 


640 GOTO630 


:rem 82 
:rem 108 
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BASIC 


d 

§ 

£ Attacco spaziale 


Bentornati, cari amici. Questa volta 
noi e il nostro fedele TI ci troviamo 
di fronte un'onda di alieni da di¬ 
struggere. 

Per far ciò dobbiamo inquadrare 
nel mirino, usando i soliti tasti frec¬ 
ciati, i nostri nemici e premere il 
pulsante di fuoco rappresentato 


dalla barra spaziatrice (natural¬ 
mente in un periodo di tempo limi¬ 
tato): un suono di laser segnalerà 
l'avvenuta distruzione. 
Dimenticavo quasi di dire che ci 
sono ben 50 livelli di difficoltà tra 
cui scegliere quello che più si addi¬ 
ce alla nostra abilità fortuna! 


100 REM 

110 REM ATTACCO SPAZIALE 
120 REM 

130 CALL CLEAR 
1 40 CALL SCREENd 2) 

150 PRINT "ATTACCO SPAZIALE":::: 


160 INPUT "livello di difficolta 
'? (l=suicida, 50=facile) ": 

SK 

170 IF <SK>50)+(SK<1)THEN 160 
180 CALL CLEAR 
190 CALL SCREEN(2) 

200 RANDOMIZE 
210 R= 1 2 
220 C=16 

230 REM DEFINIZIONE CARATTERI 

240 CALL COLOR(1,16,1) 

250 CALL COLOR(2,16,1) 

260 REM 

270 CALL CHAR(34,"00183C7E567E66 
") 

280 CALL CHAR(33,"000018183C18") 

290 CALL CHAR(40,"FF818181818181 
FF") 

300 CALL CHAR(41,"FF819999BD9981 
FF") 

310 CALL CHAR(42,"FF99BDFFD7FFE7 
FF") 

320 DEF RFR=INT(RND*23+1) 
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330 DEF RFC=INT(RND*24+4) 

340 REM POSIZIONI CASUALI 
350 RW=RFR 
360 CL=RFC 

370 CALL GCHAR(RW,CL,W) 

380 IF W<>32 THEN 350 
390 RV=INT(RND*SK+1 ) 

400 IF RV>2 THEN 450 
410 CALL HCHAR(RW,CL,34) 

420 ECN=ECN+1 

430 IF ECN>12 THEN 490 

440 REM MIRA CON IL LASER 

450 CALL KEY(0,K,S) 

460 IF K< >32 THEN 680 
470 CALL GCHAR(R,C,W) 

480 IF W< >40 THEN 600 
490 CALL SOUND(1000,-6,2) 

500 CALL SCREEN(9) 

510 X=SIN(X) 

520 PRINT "punteggio";SC 
530 CALL SCREEN(16) 

540 INPUT "un'altro gioco? ":Q$ 

550 IF (SEG$(Q$,1,1)="N")+(SEG$( 

Q$,l,l)="n")THEN 590 

560 SC=0 

570 ECN=0 

580 GOTO 180 

590 STOP 

600 SC=SC+10 

610 ECN=ECN-1 

620 CALL HCHAR(R,C,40) 

630 CALL SOUND(500,1 10,2,-5, 2) 
640 CALL COLOR(2,9,1) 

650 X=SIN(X) 

660 CALL COLOR(2,16,1) 

670 GOTO 350 
680 IF K<>69 THEN 750 
690 IF R= 1 THEN 750 
700 CALL HCHAR(R,C,32) 

710 IF MO>39 THEN 730 
720 CALL HCHAR(R,C,MO) 

730 R=R-1 

740 GOTO 950 

750 IF K<>88 THEN 820 

760 IF R=2 3 THEN 820 

770 CALL HCHAR(R,C,32) 

780 IF MO>39 THEN 800 
790 CALL HCHAR(R,C,MO) 

800 R=R+1 
810 GOTO 950 
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820 IF K<>68 THEN 890 
830 IF C=28 THEN 890 
840 CALL HCHAR(R,C,32) 

850 IF MO>39 THEN 870 
860 CALL HCHAR( R, C ,MO) 

870 C=C+1 

880 GOTO 950 

890 IF K<>83 THEN 950 

900 IF C=4 THEN 950 

910 CALL HCHAR(R,C,32) 

920 IF MO>39 THEN 940 
930 CALL HCHAR(R,C,MO) 

940 C=C-1 

950 CALL GCHAR(R,C,W) 

960 MO=W 
970 W=W-31 

980 ON W GOTO 990,1010,1030,990, 
1010,1030,990,990,990,1010,1030 

990 CALL HCHAR(R,C,40) 

1000 GOTO 350 

1010 CALL HCHAR(R,C,41) 

1020 GOTO 350 
1 030 RC=INT(RND* 8 + 1 ) 

104 0 IF RCOÌ THEN 1070 
1 050 ECN=ECN-1 
1060 GOTO 990 
1070 CALL HCHAR(R,C,42) 

1080 GOTO 350 


d 



Flip Flop 


BASIC 


Ecco un ennesime versione dell'or- 
mai conosciutissimo OTHELLO. In 
queste avrete come avversario il 
nostro fedele ed indomito compu¬ 
ter che per l'ennesima volta si di¬ 
mostra un pensatore quasi infalli¬ 
bile: sarà per voi molto difficile 
batterlo, almeno inizialmente, ma 
non dovrete per questo scorag- 
Siarvi. 


All'inizio dovrete scegliere se 
muovere per primo o per secondo, 
dopodiché potrete iniziare a gio¬ 
care. 

Dovrete muovervi con i tasti con le 
frecce e per posizionare la pedina 
basterà premere il tasto di "EN¬ 
TE R“. 

Detto questo, vi lascio nelle mani 
del nostro impaziente supercom- 
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puten in caso di vittoria potrete ri- i prossimo numero! 
tenervi dei novelli Einstein. Al I 

110 CALL CLEAR 

120 PRINT TAB(7);"** FLIP FLOP * 

"USA I TASTI FRECCIATI PER 
MUOVERTI,POI PREMI <ENTER>." 

130 DIM D ( 3) , NX ( 1 8) ,NY(18) 

140 FOR C=96 TO 128 STEP 8 

150 CALL CHAR(C,"FF818181818181F 

F") 

160 NEXT C 

170 CALL COLOR(11,2,16) 

180 CALL COLOR(12,2,6) 

190 CALL COLOR(13,2,7) 

200 C$=" hhhhhhhh" 

210 D ( 1)=-1 
220 D ( 2)=0 
230 D(3)=1 
240 X=ll 
250 Y=17 

260 PRINT p IL TUO SEGNALE 

": :" x DEL COMPUTER" 

270 PRINT ::"SCEGLI1 PR 
IMA MOSSA"::" 2 SECONDA MOSSA 

II 

280 CALL KEY(0,K,S) 

290 IF CK<49)+(K>50)THEN 280 

300 P=K-48 

310 Pl=P 

320 Gl=104+P*8 

330 CALL CLEAR 

340 PRINT C$:C$:C$:C$:C$:C$:C$:C 

350 FOR C=ll TO 14 

360 CALL HCHAR(C,15,96,4) 

370 NEXT C 

380 CALL HCHAR(12,16,112) 

390 CALL HCHAR(12,17,120) 

400 CALL HCHAR(13,16,120) 

410 CALL HCHAR(13,17,112) 

420 T=5 

430 IF P=2 THEN 1100 
440 CALL GCHAR(X,Y,GA) 

450 CALL KEY(0,K,S) 

460 CALL HCHAR(X,Y,128) 

470 CALL HCHAR(X,Y,GA) 

480 IF K=13 THEN 690 
490 IF K<>69 THEN 520 
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500 X=X-1 

510 GOTO 600 

520 IF K< >6 8 THEN 550 

530 Y=Y+l 

540 GOTO 600 

550 IF K<>83 THEN 580 

560 Y=Y-1 

570 GOTO 600 

580 IF K<>88 THEN 450 

590 X=X+1 

600 IF X>8 THEN 620 
610 X=9 

620 IF X<17 THEN 640 
630 X=16 

640 IF Y>12 THEN 660 
650 Y=13 

660 IF Y< 21 THEN 680 

670 Y=20 

680 GOTO 440 

690 IF GA=96 THEN 730 

700 CALL SOUND(50,330,2) 

710 CALL SOUND(50,262,2) 

720 GOTO 450 

730 CALL SOUND(100,1400,2) 

740 CALL HCHAR(X,Y,128) 

750 GOSUB 1420 

760 IF N>0 THEN 860 

770 GOSUB 1300 

780 IF FL=0 THEN 700 

790 CALL SOUND(500,-1,4) 

800 FOR C=1 TO 16 

810 CALL HCHAR(24,C+2,ASC(SEG$(" 

NON PUOI MUOVERE",C,1))) 

820 NEXT C 

830 CALL SOUND(1,-1,30) 

840 CALL HCHAR(24>3,32,16) 

850 GOTO 1060 

860 CALL HCHAR(X,Y,Gl) 

870 CALL SOUND(100,523,4) 

880 FOR I=X-1 TO X+l 
890 FOR J=Y-1 TO Y+l 
900 CALL GCHAR(I,J,G) 

91 0 IF GOl 04 THEN 930 
920 CALL HCHAR(I,J,96) 

930 NEXT J 
940 NEXT I 
950 GOSUB 1740 
960 T=T+1 

970 IF T=65 THEN 1780 
980 FOR 1=9 TO 16 
990 FOR J=13 TO 20 
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1 000 

CALL GCHAR(I,J,G) 

1 01 0 

IF G<=104 THEN 1030 

1 020 

IF GOG1 THEN 1060 

1030 

NEXT J 

1 040 

NEXT I 

1 050 

GOTO 1780 

1060 

P=1-SGN(P-2) 

1070 

Gl=P*8+104 

1080 

ON P GOTO 440,1100 

1 090 

REM 

11 00 

Z=-l 

1110 

FOR X=9 TO 16 

1 1 20 

FOR Y= 1 3 TO 20 

1 1 30 

X1=X-8 

1140 

Yl=Y-12 

1 1 50 

CALL GCHAR(X,Y,G) 

1160 

IF G<>96 THEN 1230 

1170 

GOSUB 1420 

1 1 80 

.IF N=0 THEN 1230 

1190 

IF N< = Z THEN 1230 

1 200 

Z=N 

1210 

IX=X 

1 220 

I Y=Y 

1 230 

NEXT Y 

1 240 

NEXT X 

1250 

IF Z< 0 THEN 790 

1260 

X=IX 

1 270 

Y=IY 

1280 

CALL HCHAR(X,Y,Gl) 

1290 

GOTO 750 

1 300 

FL=0 

1310 

FOR 11=9 TO 16 

1 320 

FOR JJ=13 TO 20 

1 330 

CALL GCHAR(II,JJ,G) 

1 340 

IF G<>96 THEN 1390 

1 350 

GOSUB 1420 

1 360 

IF N=0 THEN 1 390 

1 370 

FL= 1 

1 380 

GOTO 1410 

1 390 

NEXT JJ 

1400 

NEXT II 

1410 

RETURN 

1 420 

N= 1 

1 430 

FOR C=1 TO 3. 

1 440 

FOR A=1 TO 3 

1450 

I=X+D(C) 

1460 

J=Y+D(A) 

1470 

IF IOX THEN 1490 

1 480 

IF J = Y THEN 1 700 

1 490 

CALL GCHAR(I,J,G) 

1 500 

IF P=1 THEN 1520 


1 51 0 

0 

IF G=112 THEN 1530 ELSE 

1 70 

1 520 

IF GOl 20 THEN 1 700 


1 530 

1=I+D(C) 


1 540 

J=J+D(A) 


1 550 

CALL GCHAR( I , J , G ) 


1 560 

IF G<=104 THEN 1 700 


1 570 

IF P=1 THEN 1590 


1 580 

0 

IF G=120 THEN 1600 ELSE 

1 53 

1 590 

IF GOl 1 2 THEN 1 530 


1 600 

I = X+D(C) 


1610 

J=Y+D(A) 


1 620 

CALL GCHAR(I,J,G) 


1 630 

IF G=Gl THEN 1700 


1 640 

NX(N)=1 


1 650 

NY(N)=J 


1 660 

N=N+1 


1 670 

1=I+D(C) 


1680 

J=J+D(A) 


1690 

GOTO 1620 


1 700 

NEXT A 


1 71 0 

NEXT C 


1 720 

N=N- 1 


1 730 

RETURN 


1 740 

FOR C=1 TO N 


1 750 

CALL HCHAR(NX(C),NY(C), 

Gl) 

1 760 

NEXT C 


1 770 

RETURN 


1 780 

TI =0 


1 790 

T2=0 


1 800 

FOR 1=9 TO 16 


1 81 0 

FOR J=13 TO 20 


1 820 

CALL GCHAR(I,J,G) 


1 830 

IF G<112 THEN 1900 


1 840 

IF G=120 THEN 1880 


1 850 

TI =Tl+1 


1 860 

CALL SOUND(-50,523,4) 


1870 

GOTO 1900 


1 880 

T2=T2+1 


1 890 

CALL SOUND(-50,262,4) 


1900 

NEXT J 


1 91 0 

NEXT I 


1 920 

PRINT CHR$(112);Tl 


1 930 

PRINT CHR$(120);T2 


1 940 

IF Tl OT2 THEN 1 970 


1 950 

PRINT :"E 1 PATTA!" 


1 960 

GOTO 2010 


1 970 

IF Tl>T2 THEN 2000 
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IL COMPU 


1980 PRINT :CHR$(120);" 

TER VINCE!" 

1990 GOTO 2010 
2000 PRINT :CHR$(112);" TU VINCI 
!" 

2010 PRINT :"GIOCHI ANCORA? (S/N 
>"; 

2020 CALL KEY(0,K,S) 

2030 IF K=83 THEN 240 
2040 IF K<>78 THEN 2020 
2050 CALL CLEAR 
2060 END 


Musica 4 




16/48K 


DI 


Continuiamo a pubblicare pro¬ 
grammi a carattere musicale basati 
su un concetto di modularità, così 
come abbiamo fatto in altri numeri 
della rivista. I programmi di questo 
tipo sono caratterizzati da una par¬ 
te principale (il metronomo) che 
non cambia di volta in volta e che 
ha lo scopo di consentire all'utente 
di selezionare con estrema sempli¬ 
cità e rapidità il tempo di esecuzio¬ 
ne di un brano musicale;■ e da una 
parte che cambia ad ogni pubbli¬ 
cazione, contenente le linee DA TA 
relative alle note di un particolare 


brano e la subroutine di lettura dei 
dati stessi. In particolare, in questo 
listato, tale parte va dalla linea 
1000 alla 2090, mentre il metrono¬ 
mo è racchiuso tra le linee da 10-50 
e 8000-9950. 

Chi avesse già copiato una prece¬ 
dente versione di "Musica" potrà 
limitarsi ad eliminare la parte con¬ 
tenente il vecchio brano musicale 
e ad inserire nel programma princi¬ 
pale (con "MERGE") al suo posto 
la nuova parte, con minima fatica 
e dispendio di tempo. 


1 REM **********»•»»•• 

2 REM *** MUSICA!!! 

3 REM **************** 

4 REM 

10 LET numdati=86 
20 LET coefficiente=.5 
30 LET cursore=8 
40 LET salto=0 
50 GO SUB 8000+saIto 
1000 REM 

1010 RESTORE 2000 

1020 FOR f=l TO numdati/2 
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1030 READ durata,nota 

1050 BEEP durata*coefficiente,nota 

1060 NEXT f 

1070 GO TO 50 

2000 REM 

2010 DATA .5,0,.2,2,.2,5,.2,4,.2,2 
2020 DATA .35,7,.3,7,.2,7,.2,9 
2030 DATA .2,4,.2,5, .35,2, .3,2 
2040 DATA .2,2,.2,5,.2,4, . 2,2,.2,0 
2050 DATA .2,12,.2,11, . 2,9, . 2,7, . 2,5 
2060 DATA .2,4,.2,2,.45,0,.2,2,.2,5 
2070 DATA .2,4,.2,2,.35,7,.35,7,.2,7 
2080 DATA .2,9,.2,4,.2,5,.35,2,.35,2 
2090 DATA .2,2,.2,5,.2,4, .2,2, .2,0 
8000 REM METRONOMO 

8003 BORDER 1: PAPER 1: INK 6: CLS 

8005 LET saltO-300 

8010 REM udg per metronomo 

8020 RESTORE 8100 

8030 FOR f=l TO 11 


8040 

READ 

PS 

8050 

FOR n=0 T' 

8060 

READ 

byte 

8070 

POKE 

USR 

8080 

NEXT 

n 

8090 

NEXT 

f 

8100 

DATA 

"a", 

8110 

DATA 

"b". 

81 20 

DATA 

"c", 

81 30 

DATA 

"d" , 

8140 

DATA 

"e", 

81 50 

DATA 

"f". 

81 60 

DATA 

"g". 

81 70 

DATA 

"h". 

81 80 

DATA 

"i". 

81 90 

DATA 

Il -i Il 

J • 

8200 

DATA 

"k". 


,129,129,129,129,129,129,129,129 
,4,4,4,4,60,126,126,60 
8300 REM inizializza metronomo 
8310 LET a$="ABCDEF" 

8320 LET b$ = " - J _ii 
8330 LET c$=" GHI " 

8500 REM visualizza metronomo 

8510 PLOT 32,160: DRAW 32,0: DRAW 0,-28: DRAW -32,0: DRAW 0,28 
8520 PLOT 32,80: DRAW 88,0: DRAW 0,-24: DRAW -88,0: DRAW 0,24 
8530 PLOT 168,168: DRAW 7,0: DRAW 0,-161: DRAW -7,0: DRAW 0,161 
8540 PLOT 152,175: DRAW 88,0: DRAW 0,-175: DRAW -88,0: DRAW 0,175 
8550 PRINT AT 2,5;a$( TO 2);AT 3,S;aS<3 TO 4);AT 4,5;a$(5 TO ) 

8560 PRINT AT 13,5;”K = " 

8570 PRINT AT cursore,20;c§ 

8 580 PRINT AT 1,23 ;"DURATA" 

8600 RESTORE 9700 
8610 FOR f=3 TO 18 
8620 READ z$ 

8630 PRINT AT f,24;z$ 

8640 NEXT £ 

8700 PRINT INVERSE 1;AT 19,4;"PREMI ENTER";AT 20,4;"QUANDO HAI"; 

AT 21,4 ; "SCELTO." 

9000 REM 

9010 PRINT AT cursore-1,20;b$;AT cursore,20;c$;AT cursore+1,20 ;bS 
9020 PRINT AT 13,9;60/coefficiente;" " 
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9500 REM 

9510 IF INKEY$="6" AND cursore<18 THEN LET cursore=cursore+1: 

GO SUB 9600: GO TO 9000 

9520 IF INKEY$="7" AND cursore>3 THEN LET cursore=cursore-1 : 

GO SUB 9600: GO TO 9000 

9530 IF CODE INKEY$=!3 THEN GO SUB 9900: GO TO 9600 
9540 GO TO 9000 
9600 REM 

9610 RESTORE 9700 

9620 FOR f=l TO (cursore-2) 

9630 READ z$ 

9640 NEXT E 

9650 LET coef£iciente=VAL z$ 

9690 RETURN 

9700 REM dati per coefficiente 

9710 DATA " 4"," 3"," 2"," 1.5"," 1"," .5"," .4"," .3"," 

.2"," .1"," .05"," .03"," .02"," .01",".005",".003" 

9900 REM 

9910 FOR f=19 TO 21 
9920 PRINT AT f,4 ;" 

9930 NEXT f 
9950 RETURN 


Scritte rotanti 


16/48K 


1 

j 

'R 


Se desiderate stampare sullo 
schermo messaggi in ogni direzio¬ 
ne (alto, basso, destra e sinistra) 
apprezzerete questa utility: la ro¬ 
tazione dei messaggi è realizzata 
da una subroutine BASIC compre¬ 
sa tra la linea 9000 e la linea 9350, 
mentre le linee 110-190 dimostra¬ 
no le possibilità del programma. Se 
desiderate avvalervi di tale utility, 
conservate la subroutine principa¬ 
le intatta e sostituite le linee 100- 
1 90 con i messaggi ed i valori ido¬ 
nei a realizzare il vostro scopo. Te¬ 
nete presente che le variabili "Un”, 


1 REM *********************** 

2 REM * SCRITTE ROTANTI * 

3 REM *********************** 
10 REM INIZIALIZZAZIONE 


"core "rotaz" vi permettono di se¬ 
lezionare la corretta posizione di 
stampa e la rotazione del messag¬ 
gio, mentre la variabile "d$" stabili¬ 
sce la direzione di stampa (a=alto; 
b=basso; s=sinistra; d=destra) e la 
variabile z$ contiene la stringa da 
stampare sullo schermo. Se il pro¬ 
gramma nel quale volete includere 
l'utility prevede il caricamento di 
routine l/m, allora sostituite al- 
Tespresione «USR "a"» il valore 
dell’Indirizzo di partenza della 
routine stessa, per proteggerla da 
possibili involontarie alterazioni. 
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20 


50 

1 00 

110 

120 

130 

140 

150 

160 
1 70 
1 80 
1 90 

8999 

9000 
90f 0 
9020 
9030 

9040 

90 50 
9060 
9070 
9080 

9090 

91 00 
I 9110 

91 20 

9130 
91 40 
91 50 
91 60 
91 70 

91 80 
9200 
9210 
9220 

92 30 
9240 
9250 
9260 

92 70 

9280 

9290 
9300 
931 0 
9320 


CLEAR (USR "a”)-8: REM Se il vostro programma ha routine in ling 
uaggio macchinai sostituite l'espressione 'USR "a"' con il loro 
indirizzo di partenza (vedi anche linea 50) 

LET top=USR "a": LET lin=0: LET col=0: LET rotaz=0: LET d$="s": 
LET z$="" 

REM II vostro programma deve iniziare qui (e sostituire le linee 
110-190) 

LET lin=3: LET col=8: LET z$="Stampa": GO SUB 9000 

LET lin=3: LET col=9: LET z$ = "s.Rotazione": LET rotaz=90: LET d$= 

"b": GO SUB 9000 

LET lin=l3: LET col=9: LET z$="in ogni": LET rotaz=180: LET d$=" 
s": GO SUB 9000 

LET lin=l2: LET col=3: LET z$="Direzione": LET rotaz=270: LET d$ 
="a": GO SUB 9000 

LET lin=7 : LET col=6: LET z$ = ''T”: LET rotaz=0: LET d$ = "d”: 

GO SUB 9000 

LET lin=8: LET col=7: LET z$="t": LET rotaz=90: GO SUB 9000 
LET lin=9: LET col=6: LET z$= n t": LET rotaz=180: GO SUB 9000 
LET lin=8: LET col=5: LET z$ = "f: LET rotaz=270: GO SUB 9000 
STOP 

REM Ultima linea disponibile per i vostri programmi 
REM ROUTINE DI STAMPA 

IF lin<0 OR lin>21 OR linOINT lin THEN LET lin=0 
IF COl<0 OR col>31 OR coloINT col THEN LET col=0 
IF rotaz<>90 AND rotaz<>180 AND rotaz<>270 THEN LET rotaz 
=0 

FOR a=l TO 8 

POKE top-a,PEEK (USR "a"+(a-l)) 

NEXT a 

FOR Z=1 TO LEN Z$ 

IF rotazOO AND z$(z)<>" " THEN GO SUB 9210: LET z$(z) = 

CHRS 144 

PRINT AT lin,col;zS(z) 

IF d$="a" OR d$="b" THEN GO TO 9140 

IF lin=21*(d$="d") AND col=31 *(d$="d") THEN LET lin=21 * (d$=’’s" ) 

: LET col=31*(d$="s"): GO TO 9160 

IF col=31*(d5="d") THEN LET lin=lin+l-2*(d$= n s”): LET col=31*(d 
S = ''s" ) : GO TO 91 60 

LET col=col+l-2*(d$="s"): GO TO 9160 

IF lin=21*(dS= M b”) THEN LET lin=21*(d$="a"): GO TO 9160 
LET lin=lin+l-2*(d$="a"): GO TO 9160 
NEXT z 

FOR a=l TO 8: POKE (USR "a"+(a-1)),PEEK (top-a): NEXT a 
RETURN 

REM ROTAZIONE 
DIM a(8,8) 

PRINT Iti; PAPER INT (PEEK 23624/8); INK INT (PEEK 23624/8) ;AT 1 
31 ; z$(z) 

FOR a=0 TO 7 

LET S=128 : LET cnt=PEEK (22527-256*a) 

FOR b=l TO 8 

IF rotaz=270 THEN IF cnt>s-l THEN LET a(b,8-a)=1 : LET cnt=cnt- 
s 

IF rotaz = l80 THEN IF cnt>s-l THEN LET a(8-a,9-b)=1 : LET cnt=cn 
t-S 


IF rotaz=90 THEN IF cnt>s-l THEN LET a(9-b,a+l)=1 : LET cnt=cnt 
-s 

LET S=s/2 
NEXT b: NEXT a 

FOR a=0 TO 7: LET tot=0: LET s=128: FOR b=l TO 8 
LET tot=tot+s*(a(a+1,b)<>0) 
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9330 LET s=s/2 

9340 NEXT b: POKE USR "a" +(7-a),tot: NEXT a 
9350 RETURN 


Forza 4 


Spectrum 16/48K 


Questo programmò è utilizzabile 
su qualunque versione di Spec¬ 
trum a 16 o 48K. Scopo del gioco 
è quello di allineare in qualsiasi di¬ 
rezione quattro pedine apparte¬ 
nenti allo stesso giocatore. 


Per rendere più complicato il gioco 
la scacchiera è stata estesa a 7 co¬ 
lonne per 5 righe. 

Il gioco ha comunque termine 
quando la scacchiera è piena. 


5 

io 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 
110 
120 
1 30 
140 
1 50 


1 60 

1 70 
1 80 
190 
200 
210 
220 
230 
240 

2 50 
260 
270 


280 
2 90 
300 


REM By Matteo e Gino 

REM FORZA 4 

CLS 

GO SUB 550: GO SUB 390: GO SUB 460 
BORDER 2 
FOR n=0 TO 7 

PLOT 11+16*n,164: DRAW 0,-80 

NEXT n 

FOR n=0 TO 5 

PLOT 11,164-n*16 : DRAW 112,0 
NEXT n 

PRINT AT 0,2;"1 23456 7";AT 2,18; INVERSE l;“FORZA QUATTRO" 
LET a=0 
LET k = l 
LET y=l0 ‘ 

IF POINT (19,154).1 AND POINT (35,154).1 AND POINT (51,154)-! 
AND POINT (67,154)*! AND POINT (83,154)>1 AND POINT (99,154)«1 
AND POINT (115,154)=1 THEN BEEP .5,0: GO TO 520 
IF k=2 THEN GO TO 280 

PRINT AT 19,4; INVERSE 1;” A GIOCATORE 1 A ": BEEP .5,10 
INPUT "Colonna ";z 
IF z = 9 THEN GO TO 520 
LET x=z*2 

IF x=0 OR x>l4 THEN GO TO 180 
LET y=l0 

IF ATTR (y,x)056 OR ATTR (y,x)=60 THEN LET y=y-2: GO TO 230 
IF y=0 THEN GO TO 180 
PRINT INK 1;AT y,x;"A" 

LET k=k+l 
GO TO 140 

PRINT AT 19,4; INVERSE 0;" B GIOCATORE 2 B ": BEEP .5,18 
INPUT "Colonna ";q 
IF q=9 THEN GO TO 520 
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31 0 LET y = 1 0 
320 LET x=q *2 

330 IF x=0 OR X>14 THEN GO TO 290 

340 IF ATTR (y,x)<>56 OR ATTR (y,x)=60 THEN LET y=y- 2 : GO TO 340 
350 IF y=0 THEN GO TO 290 
360 PRINT INK 4;AT y,x;"B" 

370 LET k = l 
380 GO TO 140 
390 RESTORE 430 

4 00 FOR n=USR "a" |TO USR "b"+7 
410 READ a: POKE n,a 
420 NEXT n 

430 DATA 255,251,247,239,223,126,60,24 
440 DATA 0,102,255,255,255,126,60,24 
450 RETURN 
460 DORDER 2 

470 FOR d-72 TO 79: POKE 23681,d: LPRINT " FORZA QUATTR 
O NEXT d 

480 PRINT AT 21,25;"By G&M " 

490 LET x$ = "....Il primo giocatore che 

riesce ad allineare 4 pedine nella scacchiera (anche in diagonal 

e) vince .Premi 9 per uscire dal 

gioco .PREMI UN TASTO PER G 

IOCARE..." 


500 

510 

520 

530 

540 


550 

560 

570 

580 


..f " 1 , 70 227: BEEP -03,10: PRINT AT 19,0;x$(i TO i+30): 

PAUSE 2: BEEP .005,2: IF INKEY$="” THEN NEXT i 

P RETURN ! F0R f=5 ° TO 255 STEP 4: ° UT 254 ' £: NEXT f: CLS : 

INPUT "Vuoi giocare ancora ? (s/n)";a$ 

5sR a f:;^ : °^r:r j hf o 4 r TORE 43o: for n=i to 8: “ ize 

X X.*WmS " R a5<>MS " ™c N - CLS : F0R X=72 TO 79: P0KE 2368 ’ 

,x. LPRINT Ciao! ": NEXT x: PAUSE 200- 

RANDOMIZE USR 0 PAUSE 200. 

RESTORE 570 

FOR a=l TO 19: READ b$: POKE 64000+a,VAL bS; NEXT a 

?•>m^u * ^ 8 " , " 33 " , " 2 55“ , " 87" , " 1 4" , " 32" , " 1 67" , "203" ,^38" ,"43" - 13 - .. 

32","250","62","63","188","32","242","201" ' ' ' ' 

RETURN ' 


30 









Guida per l'input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tasti grafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi "shiftati") e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera 0 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9 
Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente a! tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe 
A esempio {G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato piu 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato. 

Cosi ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte; analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte. I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A 


Quando leggete 


Premete 
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(G3) 

(G4) 

(G5) 
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(SG1) 

(SG2) 

(SG3) 

(SG4 
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Vedrete 
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Vedrete 


Simbolo grafico 
definito nel 
programma In uso. 
























































La programmarono 


BASIC 


Programmi 
i} stollsttea 


VJoróS'a' 


""'noaore 


Shar P MZ-eo a 


naturalmente 


ELENCO DEI TITOLI DISPONIBILI 


I luuòili Jackson sono uno 
slrumenlo prenoso por cM lavora 
con II computer. 

•Sinclair spectrum eoa puh 

•vie 20 eoa 005H 
•COMMODORE M eoa 002H 
PC IBM eoa OHM 
•APPLE Ile eoa 0O3H 
•SHARP MZ80» eoa OHM 
•LA PROGRAMMAZIONE eoa 004H 
•WORD STAR eoa. 00SH 
•UNIX eoa 009H 
•LODO eoa. 020H 
•MS-DOS eoa. OUH 
•PROGRAMMI DI STATISTICA eoa. 
015H 

•CP/Meoa. 011H 
•PC-DOSeoa. 012H 


•BASIC eoa. 007M 
•ASSEMBLER ZIO eoa. DISK 
ASSEMBLER 6S02 eoa 013H 
•COBOL coa.OOIH 
•FORTRAN 77 COd 010H 
•PASCAL eoa 00BH 
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